<!--#include file="conn.asp"-->
<%
 If Request.ServerVariables("HTTP_X_FORWARDED_FOR")  <> "" Then 
    Response.write "<html>" 
    Response.write "<head><title>ֹͨʼƷQzoneư</title>" 
    Response.write "<style type=""text/css"">" 
    Response.write "BODY{FONT-SIZE: 14px;FONT-FAMILY:  ;}" 
    Response.write "</style></head>" 
    Response.write "<body>" 
    Response.write "<b><p align=center><br><font color=#990000>ƷƼʾ<br><br>Iam Sorry! Ϊ˰ȫͷˢƱƷQzoneưwww.jpqzone.comͨʣ<br><br>Ƕ˸ɵ鷳бǸ½⣡</font></p></b>" 
    Response.write "</body></html>" 
    Response.End 
  End If 

dim username,JP_YZ
username=hx.checkstr(request("id"),12)
JP_YZ=clng(Trim(Request("JP_YZ")))

If username="" then
Call GoToUrl
End If

If not hx.isrec(0) And (session("JP_U_"&username&"")=JP_YZ Or Request.Cookies("JP_U_"&username&"")=JP_YZ) then
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select TOP 1 inc,inj,piaof,indate,fromdate,siteurl from Jpwl_Jpqzone_Link where username='"&username&"'"
rs.open sql,conn,1,2
If not rs.eof then
If rs("inc")=0 then
'¼ʼͳƵʱ
rs("fromdate")=now()
End If

If DateDiff("d",rs("indate"),Date())=0 then
rs("piaof")=rs("piaof")+1
rs("inj")=rs("inj")+1
else
rs("inj")=1
End If

rs("inc")=rs("inc")+1
rs("indate")=Now()
rs.update
rs.update
else
Response.Redirect "vote_wrong.asp?id=" & username
rs.close
set rs=nothing
CloseDatabase
Response.End
End If
rs.close
set rs=nothing

'ջ
hxcache.DelCahe("js")
End If

Call GoToUrl

Sub GoToUrl
set hx = nothing
Response.Redirect "vote_right.asp?id=" & username
Response.End
End Sub
%>
